Below is VB6 code to add a WSPR button to FY6600 AWG.

Private Sub Command2_Click()    'WSPR transmit
Dim sec As Long
Dim min As Long
Dim txflag As Long

txflag = 0

findmin: min = Minute(Now)
DoEvents
If (min And 1) = 0 Then GoTo findmin    'loop back if even min (or compare 1 for odd check)
    Text28.Text = min
findsec: sec = Second(Now)  'find end of last transmission time.
    Text1.Text = sec
    DoEvents
If sec < 55 Then GoTo findsec
'If sec <> 55 Then GoTo findsec
Text1.Text = sec
'''''''''''''''''''''''''''''''''Determine on/off of transmitter''''''''''''''''
If txflag = 0 Then
    Command32.Caption = "Output ON"     'transmitter on
    Command32.BackColor = RGB(0, 244, 0)
    strText = "WMN1"    'set CH1 on
    send (strText)
    Call RX_endC    'wait for ack from fy6600
    txflag = 1
Else
    Command32.Caption = "Output OFF"    'transmitter off
    Command32.BackColor = RGB(244, 0, 0)
    strText = "WMN0"    'set CH1 off
    send (strText)
    Call RX_endC    'wait for ack from fy6600
    txflag = 0
End If
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
Command33_Click   'Toggle CH2 to off to prepare CH2
Call RX_endC    'wait for ack from fy6600
Command53_Click (5)   'Turn FM on
Call RX_endC    'wait for ack from fy6600

findsec2: sec = Second(Now) 'find start of transmission time
Text1.Text = sec
DoEvents
If sec < 59 Then GoTo findsec2
'If sec <> 59 Then GoTo findsec2
Text1.Text = sec

Command33_Click   'Toggle CH2 to on. Start the wspr message
Call RX_endC    'wait for ack from fy6600
'delay_ms (900)
Command53_Click (5)   'Turn FM on

GoTo findmin    'loop back
End Sub
